home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tu.d64 / entertainer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  163 lines
  1. 0 PRINT"[147]"+CHR$(14)+CHR$(158):POKE53280,6:POKE53281,11:TI$="000000"
  2. 1 PRINT"[212]HE [197]NTERTAINER"
  3. 2 PRINT"BY"
  4. 3 PRINT"[211]COTT [202]OPLIN"
  5. 4 PRINT"ARRANGEMENT":PRINT"BY":PRINT"[210]ICK [211]TERLING"
  6. 8 PRINT"PLEASE WAIT 3 MIN 25 SEC."
  7. 9 PRINT"COFFEE BREAK! SETTING UP 20K BYTE ARRAY"
  8. 10 S=54272:FORL=STOS+24:POKEL,0:NEXT
  9. 20 DIMH%(2,1200),L%(2,1200),C%(2,1200)
  10. 30 DIMFQ(11)
  11. 40 V(0)=17:V(1)=65:V(2)=33
  12. 45 POKES+3,8
  13. 50 POKES+9,140:POKES+22,240:POKES+23,244
  14. 60 FORI=0TO11:READFQ(I):NEXT
  15. 100 FORK=0TO2
  16. 110 I=0
  17. 120 READNM
  18. 121 PRINTTI$:PRINT"[145]";
  19. 130 IFNM=0THEN250
  20. 140 WA=V(K):IFNM<0THENNM=-NM:WA=1
  21. 150 DR%=NM/128:OC%=(NM-128*DR%)/16
  22. 160 NT=NM-128*DR%-16*OC%
  23. 170 FR=FQ(NT)
  24. 180 IFOC%=7THEN200
  25. 190 FORJ=6TOOC%STEP-1:FR=FR/2:NEXT
  26. 200 HF%=FR/256:LF%=FR-HF%*256
  27. 210 IFDR%=1THENH%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:GOTO120
  28. 220 FORJ=1TODR%-1:H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:NEXT
  29. 230 H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA-1
  30. 240 I=I+1:GOTO120
  31. 250 IFI>IMTHENIM=I
  32. 260 NEXT
  33. 300 PRINT"[145][145][145][145]";
  34. 302 PRINT"                                        "
  35. 303 PRINT"                                        "
  36. 304 PRINT"                                        "
  37. 500 POKES+5,63:POKES+6,240
  38. 505 POKES+10,8
  39. 510 POKES+12,8:POKES+13,9
  40. 520 POKES+19,119:POKES+20,7
  41. 530 POKES+24,31
  42. 540 FORI=0TOIM
  43. 550 POKES,L%(0,I):POKES+7,L%(1,I):POKES+14,L%(2,I)
  44. 560 POKES+1,H%(0,I):POKES+8,H%(1,I):POKES+15,H%(2,I)
  45. 570 POKES+4,C%(0,I):POKES+11,C%(1,I):POKES+18,C%(2,I)
  46. 571 IFI=313THENPOKES+12,119:POKES+13,53
  47. 572 IFI=571THENPOKES+12,53:POKES+13,53:POKES+10,6
  48. 573 IFI=823THENPOKES+12,10:POKES+13,167:POKES+10,0:POKES+20,240:POKES+5,15
  49. 580 NEXTI
  50. 582 PRINT"HIT ANY KEY TO REPEAT"
  51. 590 GETA$:IFA$=""THEN590
  52. 591 IFA$=""THENEND
  53. 598 PRINT"[145]                     [145]"
  54. 599 GOTO500
  55. 600 DATA35115,37203,39415,41759
  56. 610 DATA44242,46873,49660,52613
  57. 620 DATA55741,59056,62567,66288
  58. 1000 DATA 338,340,336,585,331,583,322,324,320,569
  59. 1010 DATA 315,567,306,308,304,553,299,297,296,551,-496,599
  60. 1020 DATA 322,323,324,592,324,592,324,1616
  61. 1030 DATA 352,354,355,356,352,354,612,347,610,1632
  62. 1040 DATA 322,323,324,592,324,592,324,1872
  63. 1050 DATA345,343,342,345,352,612,354,352,345,1634
  64. 1070 DATA 322,323,324,592,324,592,324,1616
  65. 1080 DATA 352,354,355,356,352,354,612,347,610,1632
  66. 1090 DATA352,354,356,352,354,612,352,354,352,356,352,354,612,352,354,352
  67. 1100 DATA356,352,354,612,347,354,1760
  68. 1110 DATA340,341,342,599,345,599,340,341,342,599,345,599
  69. 1120 DATA340,336,327,329,331,336,338,340,338,336,338
  70. 1130 DATA327,340,341,343,345,343,340,341,599,345,599,340,341,342,599,345,599
  71. 1140 DATA343,345,346,347,603,603,345,342,338,1367
  72. 1150 DATA340,341,342,599,345,599,340,341,342,599,345,599
  73. 1160 DATA340,336,327,329,331,336,338,340,338,336,338
  74. 1170 DATA 1360 , 327 , 326 , 327 , 592 , 329 , 592 , 329 , 336 , 329
  75. 1180 DATA 327,336,340,599,340,336,327,585,592,340,594,1616,-448
  76. 1190 DATA345,344,1113,608,2146
  77. 1200 DATA 341,340,1109,601,1882,343,594,343,594,343,594,1104,1109
  78. 1210 DATA340,344,347,612,354,347,352,1113,1114,345,344,1113,608,2146
  79. 1220 DATA341,340,1109,601,1882,343,594,343,594,343,594,1104,853,341
  80. 1225 DATA 345,608,599,336,338,340,597,-480,613,-480
  81. 1230 DATA592,329,592,329,336,329,327,336,340,599,340,336,327
  82. 1240 DATA585,592,340,594,1360,608,-416
  83. 1250 DATA581,324,581,324,581,-256,329,338,329,336,338,336,324
  84. 1260 DATA583,326,583,326,583,-256,336,340,336,338,340,338,336
  85. 1270 DATA594,337,594,337,594,-256,341,345,341,343,345,343,341
  86. 1280 DATA352,352,1120,601,599,327,327,583,583
  87. 1290 DATA581,324,581,324,581,-256,329,338,329,336,338,336,324
  88. 1300 DATA583,326,583,326,583,-256,336,340,336,338,340,338,336
  89. 1310 DATA329,328,329,599,597,336,340,339,340,601,352,343,340
  90. 1320 DATA592,592,340,594,1360,608,-416
  91. 1999 DATA 0
  92. 2000 DATA 338,340,336,585,331,583,322,324,320,569
  93. 2010 DATA 315,567,306,308,304,553,299,297,296,551,-496,599,571
  94. 2020 DATA 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
  95. 2030 DATA 571,560,567,567,567,565,576,564
  96. 2040 DATA563,562,566,562,569,571,567,569,571
  97. 2050 DATA 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
  98. 2060 DATA-496,576,580,570,580,569,581,568,581
  99. 2070 DATA567,580,567,571,576,567,560
  100. 2110 DATA 336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
  101. 2115 DATA 1093,1096,1092,1095
  102. 2120 DATA 596,340,596,336,338,339,596,340,596
  103. 2130 DATA343,345,346,343,599,598,345,336,338
  104. 2140 DATA 1355,336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
  105. 2150 DATA 1093,1096,1092,1098
  106. 2160 DATA 581,581,579,579,576,576,576,576
  107. 2170 DATA 582,582,325,581,1604,-448
  108. 2180 DATA341,342,1109,601,2138
  109. 2190 DATA338,340,1106,594,1879,343,570,578,567,568,569,581,562,581
  110. 2200 DATA564,578,568,578,1092,580,580,341,344,1109,597,2138,338,340,1106,594
  111. 2210 DATA1879,343,570,578,567,568,313,309,308,306,840,331
  112. 2220 DATA336,592,842,586,585,-480,597,-480
  113. 2230 DATA569,569,579,579,580,576,580,576,582,582,325,581,324,1092,592,-432
  114. 2240 DATA578,321,578,321,578,-256,329,325,329,336,338,336,329
  115. 2250 DATA580,323,580,323,580,-256,336,343,336,338,340,338,336
  116. 2260 DATA587,330,587,330,587,-256,341,345,341,343,345,343,341
  117. 2270 DATA336,336,1104,592,592,324,324,580,580
  118. 2280 DATA578,321,578,321,578,-256,329,325,329,336,338,336,329
  119. 2290 DATA580,323,580,323,580,-256,336,343,336,338,340,338,336
  120. 2300 DATA329,328,329,585,585,329,576,580,579,580
  121. 2310 DATA582,582,325,581,324,576,567,560,-464
  122. 2999 DATA 0
  123. 3000 DATA 338,340,336,585,331,583,322,324,320,569
  124. 3010 DATA 315,567,306,308,304,553,299,297,296,551,-496,567,583
  125. 3020 DATA560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
  126. 3030 DATA 583,560,564,551,570,549,569,548
  127. 3040 DATA547,546,562,562,566,567,551,553,555
  128. 3050 DATA560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
  129. 3060 DATA-496,560,567,554,567,553,569,552,568,551
  130. 3070 DATA567,551,567,560,551,544
  131. 3110 DATA340,341,342
  132. 3120 DATA560,567,551,567,560,567,551,567,549,569,581,568,564,567,551,567,560
  133. 3130 DATA567,551,567
  134. 3140 DATA 560,567,564,563,562,567,562,569
  135. 3150 DATA 567,565,564,562,560,567,551,567
  136. 3160 DATA 560,567,551,567,549,569,565,568
  137. 3170 DATA 564,567,560,570
  138. 3180 DATA 565,565,566,566,567,567,567,567
  139. 3190 DATA 562,562,567,567,560,551,544,-192
  140. 3200 DATA549,569,560,569,554,330,329,330,336,594
  141. 3210 DATA546,569,553,569,551,570,562,570,554,570,551,552,553,569,562,569
  142. 3220 DATA564,571,568,571,1081,567,560,549,569,560,569,554,570,565,570
  143. 3230 DATA546,569,553,569,551,570,562,570,554,570,551,552,297,293,292,290,1057
  144. 3240 DATA560,569,560,560,565,-480,549,-480
  145. 3250 DATA565,565,566,566,567,567,576,576,562,562,567,567,1072,544,-480
  146. 3260 DATA549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
  147. 3270 DATA551,565,555,565,551,565,555,565,563,1075,563,564,-1536
  148. 3280 DATA549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
  149. 3290 DATA549,546,548,549,551,567,566,567,553,546,551,555,560,551,544,-480
  150. 3999 DATA 0
  151. 4999 DIM NV(32)
  152. 5000 INPUT"NOTE DPO";ND,NP,NO
  153. 5005 IFND=0THEN5070
  154. 5030 NV=128*ND+16*NO+NP
  155. 5040 NV(I)=NV
  156. 5050 I=I+1
  157. 5060 GOTO5000
  158. 5070 FORJ=0TOI-1
  159. 5075 A$=STR$(NV(J)):IFSGN(NV(J))=-1THEN5080
  160. 5076 A$=RIGHT$(A$,LEN(A$)-1)
  161. 5080 PRINTA$+",";
  162. 5090 NEXT
  163.